home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / pctj486.arc / PRRESET.BAS < prev    next >
BASIC Source File  |  1985-11-03  |  195b  |  8 lines
  1. 10 ' Interpreted BASIC program
  2. 20 ' to reset any parallel printer
  3. 30 DEF SEG = &H40
  4. 40 PORTNO = 2 + PEEK(8) + 256*PEEK(9)
  5. 50 OUT PORTNO,232
  6. 60 FOR DELAY = 1 TO 50: NEXT
  7. 70 OUT PORTNO,236
  8.